home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 April / macformat-023.iso / Shareware City / HyperCard / Dock / Dock Help Folder / Two Networks / background_2810.xml next >
Encoding:
Extensible Markup Language  |  1994-12-20  |  2.8 KB  |  77 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2810</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_4895.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3254.css" />
  11.     <part>
  12.         <id>1</id>
  13.         <type>button</type>
  14.         <visible> <false /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>0</left>
  23.             <top>0</top>
  24.             <right>70</right>
  25.             <bottom>22</bottom>
  26.         </rect>
  27.         <style>roundrect</style>
  28.         <showName> <true /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <true /> </autoHighlight>
  31.         <sharedHighlight> <false /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>0</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Courier</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name>bsmssys</name>
  40.         <script></script>
  41.     </part>
  42.     <part>
  43.         <id>3</id>
  44.         <type>field</type>
  45.         <visible> <true /> </visible>
  46.         <dontWrap> <false /> </dontWrap>
  47.         <dontSearch> <false /> </dontSearch>
  48.         <sharedText> <false /> </sharedText>
  49.         <fixedLineHeight> <false /> </fixedLineHeight>
  50.         <autoTab> <false /> </autoTab>
  51.         <lockText> <false /> </lockText>
  52.         <rect>
  53.             <left>46</left>
  54.             <top>7</top>
  55.             <right>484</right>
  56.             <bottom>35</bottom>
  57.         </rect>
  58.         <style>rectangle</style>
  59.         <autoSelect> <false /> </autoSelect>
  60.         <showLines> <false /> </showLines>
  61.         <wideMargins> <false /> </wideMargins>
  62.         <multipleLines> <false /> </multipleLines>
  63.         <reservedFamily> 0 </reservedFamily>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>0</icon>
  66.         <textAlign>center</textAlign>
  67.         <font>Palatino</font>
  68.         <textSize>24</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <textHeight>32</textHeight>
  71.         <name></name>
  72.         <script></script>
  73.     </part>
  74.     <name></name>
  75.     <script>-- Dock ¬©1994 Randall E. Ayling
  76. -- Technical support:
  77. -- Randy Ayling
  78. -- 121, rue de Carency
  79. -- 62400 B√©thune
  80. -- France
  81. -- Tel: 011-33-21 56 91 04
  82. -- Fax: 011-33-21 61 22 57
  83.  
  84. on openBackground
  85. global bsmskeep
  86. if bsmskeep is not true then ensureLYSRes
  87. pass openBackground
  88. end openBackground
  89.  
  90. on resumeStack
  91. global bsmskeep
  92. if bsmskeep is not true then ensureLYSRes
  93. pass resumeStack
  94. end resumeStack
  95.  
  96. on ensureLYSRes
  97. if "lysRes" is not in the stacksInUse then
  98. start using stack "lysRes"
  99. if the result is not empty then put "-- DOCK hypertext is not available"
  100. end if
  101. end ensureLYSRes
  102.  
  103. on mouseUp
  104. repeat forever
  105. visual iris open very slow
  106. go next card
  107. repeat with i = 1 to 5
  108. set cursor to busy
  109. if the mouse is down then exit to hypercard
  110. wait 1 second
  111. end repeat
  112. end repeat
  113. end mouseUp
  114. </script>
  115. </background>
  116.